COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
C00004 ENDMK
C⊗;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
func FUN.FUN[SCR,LCS];
common toot    TOP BOTM; 
*                      < THE '*' ENDS THE 'PRECEDE' INPUT.

top  0 1 15;	< BG time=0, inst 1 plays 15 notes.

p2 rhy/8/16// 8// 4// 8/16 X 6/4;

p3 notes/c4/d/e/f/g/a/b/c5/ < Scale goes up from middle C, then down.
B4/A/G/F/E/D/C;

P4 .45;  < AMPLITUDE FACTOR
P5 F2; < SOSTENUTO ENVELOPE
P13 FUNC/4/5/6;     < CYCLES THROUGH F4,F5,F6.
END;< Ampl(P4)=500, envelope is sostenuto (F2).


BOTM 0 2 7; P2 RHY/4./8/REP 2 3/4; 
< dotted quarter, eighth pair plays a total of 3 times.

P3 NOTES/C3/A/F/G/C/G1/C2;<Bass notes

P4 NUM/.5/////.9/;
< AMPLITUDE FACTOR IS .5 UNTIL LAST 2 NOTES, THEN .9.
P5 F3; < F3 will give semi-staccato.
P13 F4; < CLARINET-LIKE TONE
END;

TEMPO/2 112/3 112 40; < 1ST 2 BEATS AT MM=112, LAST 3 RITARD TO MM=40.

RUN;